home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ad.arc / ADSTART.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  4.5 KB  |  101 lines
  1. 10  CLS:KEY OFF:FOR I= 1 TO 10:KEY I,"":NEXT:GOSUB 110
  2. 20  IF CO=999 THEN 25 ELSE FOR I= 1 TO 500:NEXT
  3. 25  GOSUB 1000
  4. 30  COLOR 7,0:CHAIN"ADMAIN.BAS",200,ALL
  5. 40  CLS:LOCATE  5,27:COLOR 0,7,1:PRINT SPACE$(26):LOCATE  6,27:PRINT SPACE$(26)
  6. 50  LOCATE  7,27:PRINT SPACE$(11);:COLOR 14,9:PRINT " THE ";:COLOR 0,7:PRINT SPACE$(10)
  7. 60  LOCATE 8,27:PRINT SPACE$(6);:COLOR 14,9:PRINT " ADDRESS BOOK ";:COLOR 0,7:PRINT SPACE$(6):LOCATE 9,27:PRINT SPACE$(26):LOCATE 10,27:PRINT SPACE$(26)
  8. 70  COLOR 4,0:LOCATE 13,26:PRINT "INTEGRATED SOFTWARE SYSTEMS ":LOCATE 15,31:PRINT "BALTIMORE MARYLAND":COLOR 3,0
  9. 80  LOCATE 18,18:PRINT " (C) Copyright 1983  E. L. Loh and R. L. Caret"
  10. 90  LOCATE 25,10:COLOR 1,3,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";SPACE$(15);"SERIAL NUMBER: ";SNN$;:COLOR 3,0:Y$=""
  11. 100  RETURN
  12. 110  DEF SEG=&HB000
  13. 120  POKE 0,&H33: MONO = (PEEK(0)=&H33)
  14. 130  POKE 0,&H55: MONO = (PEEK(0)=&H55) AND MONO
  15. 140  DEF SEG=&HB800
  16. 150  POKE 0,&H33: COLR = (PEEK(0)=&H33):SNN$="OG110"
  17. 160  POKE 0,&H55: COLR = (PEEK(0)=&H55) AND COLR
  18. 170  IF MONO AND COLR THEN 190
  19. 175  IF MONO THEN GOSUB 40:RETURN
  20. 180  IF COLR THEN GOSUB 340:RETURN
  21. 190  DEF SEG = &H40:POKE &H17,&H40
  22. 200  CLS:COLOR 3,0,1:LOCATE 12,23:PRINT "Please select which monitor to use.":LOCATE 14,28:PRINT "Color Monitor Enter <C>.":LOCATE 16,25:PRINT "Monochrome Display Enter <M>."
  23. 210  COLOR 14,0:LOCATE 14,49:PRINT "C":LOCATE 16,51:PRINT "M":COLOR 3,0
  24. 220  GOSUB 330
  25. 230  YS$=INKEY$:IF YS$="" THEN 230 ELSE YS$=CHR$(ASC(YS$) AND &HDF)
  26. 240  IF YS$="C" THEN 290
  27. 250  IF YS$="M" THEN 260 ELSE 220
  28. 260  DEF SEG=64:MT=(PEEK(16) AND 48):IF MT=32 THEN GOSUB 340
  29. 270  DEF SEG=0:Y=PEEK(&H410):POKE &H410,(Y OR &H30)
  30. 280  Y1=20:X1=30:LOCATE ,,,12,13:GOTO 320
  31. 290  DEF SEG=64:MT=(PEEK(16) AND 48):IF MT=48 THEN GOSUB 40
  32. 300  DEF SEG=0: Y=PEEK(&H410):POKE &H410, (Y AND &HCF) OR &H20
  33. 310  Y1=25:X1=12:LOCATE ,,,7,7:CO=999
  34. 320  LOCATE 1,1,0:SCREEN 0:WIDTH 40:WIDTH 80:IF YS$="M" THEN GOSUB 40:RETURN ELSE GOSUB 340:SCREEN 0:WIDTH 80:LOCATE 1,1:RETURN
  35. 330  FOR SS%=1 TO 3:SOUND 1000*SS%,1:NEXT:FOR SS%= 3 TO 1:SOUND 1000*SS%,1:NEXT:SNN$="0G110":RETURN
  36. 340  A=1:SCREEN 1
  37. 350  FOR X=0 TO 320 STEP 16:LINE(160,100)-(X,0),A:NEXT
  38. 360  FOR Y=0 TO 200 STEP 10:LINE(160,100)-(320,Y),A:NEXT
  39. 370  FOR X=320 TO 0 STEP -16:LINE(160,100)-(X,199),A:NEXT
  40. 380  FOR Y=200 TO 0 STEP -10:LINE(160,100)-(0,Y),A:NEXT
  41. 390  LINE(110,80)-(210,120),1,BF:A=0
  42. 400  FOR Y=0 TO 200 STEP 10:LINE(160,100)-(0,Y),A:NEXT
  43. 410  FOR X=0 TO 320 STEP 16:LINE(160,100)-(X,199),A:NEXT
  44. 420  FOR Y=200 TO 0 STEP -10:LINE(160,100)-(320,Y),A:NEXT
  45. 430  FOR X=320 TO 0 STEP -16:LINE(160,100)-(X,0),A:NEXT
  46. 440  LOCATE 13,18:PRINT "I  S  S"
  47. 450  LOCATE 19,12:PRINT " THE ADDRESS BOOK"
  48. 460  LOCATE 23,7:PRINT " INTEGRATED SOFTWARE SYSTEMS "
  49. 470  LOCATE 1,1
  50. 480  LOCATE 21,1:PRINT "(C)COPYRIGHT 1983 by E. Loh and R. Caret"
  51. 490  REM
  52. 500  Q$="NM160,90 C0 NM160,90 C2"
  53. 510  DRAW"BM50,3;XQ$;R30;XQ$;D8;XQ$;L10;XQ$;D36;XQ$;R10;XQ$;D8;XQ$;L30;XQ$;U8;XQ$;R10;XQ$;U36;XQ$;L10;XQ$;U8;XQ$;"
  54. 520  DRAW"BM50,3 R30 D8 L10 D36 R10 D8 L30 U8 R10 U36 L10 U8 "
  55. 530  DRAW"BM150,3;XQ$;R30;XQ$;D10;XQ$;L8;XQ$;U3;XQ$;L15;XQ$;D15;XQ$;R23;XQ$;D30;XQ$;L30;XQ$;U10;XQ$;R8;XQ$;D3;XQ$;R15;XQ$;U15;XQ$;L23;XQ$;U30;"
  56. 540  DRAW"BM150,3 R30 D10 L8 U3 L15 D15 R23 D30 L30 U10 R8 D3 R15 U15 L23 U30;"
  57. 550  DRAW"BM250,3;XQ$;R30;XQ$;D10;XQ$;L8;XQ$;U3;XQ$;L15;XQ$;D15;XQ$;R23;XQ$;D30;XQ$;L30;XQ$;U10;XQ$;R8;XQ$;D3;XQ$;R15;XQ$;U15;XQ$;L23;XQ$;U30;"
  58. 560  DRAW"BM250,3 R30 D10 L8 U3 L15 D15 R23 D30 L30 U10 R8 D3 R15 U15 L23 U30;"
  59. 570  SOUND 1024,4:DRAW"BM290,3 XQ$;BM +0,-1 L2 D8 R2 BM +7,-3;XQ$;D2 L4 U6 R4 D2;XQ$;BM +3,-3 R2 D8 L2;"
  60. 580  DRAW"BM250,3 R30 D10 L8 U3 L15 D15 R23 D30 L30 U10 R8 D3 R15 U15 L23 U30;"
  61. 590  DRAW"BM290,3 BM +0,-1 L2 D8 R2 BM +7,-3 D2 L4 U6 R4 D2 BM +3,-3 R2 D8 L2;":SOUND 32000,10:SOUND 1024,5
  62. 595  PAINT (55,5),2:PAINT (155,5),2:PAINT (255,5),2:COLOR 1,2
  63. 600  IF CO=999 THEN LOCATE 25,12:PRINT "PLEASE WAIT, LOADING ";:FOR I=1 TO 1000:NEXT
  64. 610  RETURN
  65. 1000  SCREEN 0:WIDTH 80:COLOR 0,11,1:CLS:LOCATE 4,1:PRINT TAB(30);"THE ADDRESS BOOK"
  66. 1010  PRINT
  67. 1020  PRINT TAB(5);"     The Address Book  is distributed as 'user-supported software.'"
  68. 1030  PRINT TAB(5);"You do not have to pay for it.   You can copy it, give it away,"
  69. 1040  PRINT TAB(5);"or do whatever else you wish with it except sell it.  You may not,"
  70. 1050  PRINT TAB(5);"however:"
  71. 1070  PRINT 
  72. 1080  PRINT TAB(5);"<UNK! {0009}>1.  Charge any price for the program or documentation. "
  73. 1090  PRINT TAB(5);"Non-profit organizations may charge a distribution fee of up to"
  74. 1100  PRINT TAB(5);"cover their overhead."
  75. 1110  PRINT 
  76. 1120  PRINT TAB(5);"<UNK! {0009}>2.  Modify the program or documentation in any way.  Both"
  77. 1130  PRINT TAB(5);"the program and documentation must be distributed together."
  78. 1140  PRINT 
  79. 1150  PRINT TAB(5);" <UNK! {0009}>The Address Book is copyrighted and remains the property of"
  80. 1160  PRINT TAB(5);"the authors."
  81. 1170  PRINT 
  82. 1175  GOSUB 1340:CLS:LOCATE 5,1
  83. 1180  PRINT TAB(10);"If you find that it is useful, you are invited to make a ";:COLOR 14,0:PRINT "$25":COLOR 0,11
  84. 1190  PRINT TAB(5);"donation to the authors.  The donation is voluntary and in no way"
  85. 1200  PRINT TAB(5);"should be considered as payment for software or services."
  86. 1210  PRINT 
  87. 1220  PRINT TAB(5);"<UNK! {0009}>The authors are:"
  88. 1230  PRINT TAB(5);"<UNK! {0009}><UNK! {0009}>                         Eddie L. Loh  and"
  89. 1240  PRINT TAB(5);"                                     Robert L. Caret"
  90. 1250  PRINT TAB(5);"   <UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}> Integrated Software Systems"
  91. 1260  PRINT TAB(5);"<UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}> POB 61"
  92. 1270  PRINT TAB(5);"<UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}> Phoenix, MD. 21131"
  93. 1280  PRINT 
  94. 1290  PRINT 
  95. 1300  PRINT TAB(5);"<UNK! {0009}>The authors may also be reached via MCI Mail (c/o RCaret)"
  96. 1310  PRINT TAB(5);"or CompuServe (72435,552/RCaret)."
  97. 1320  PRINT 
  98. 1330  PRINT:COLOR 3,0
  99. 1340  LOCATE 24,27:COLOR O,7:PRINT "HIT ANY KEY TO CONTINUE";:COLOR 0,11:LOCATE 1,1
  100. 1350  A$=INKEY$:IF A$="" THEN 1350 ELSE RETURN
  101.